unit FormBaseDialog;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, FormBaseInfo, cxGraphics, cxControls,
  cxLookAndFeels, cxLookAndFeelPainters, Menus, dxLayoutControlAdapters,
  dxLayoutContainer, Vcl.StdCtrls, cxButtons, dxLayoutControl, Vcl.ExtCtrls,
  Vcl.ImgList, dxGDIPlusClasses, dxSkinsCore, dxSkinscxPCPainter,
  dxLayoutcxEditAdapters, cxContainer, cxEdit, cxLabel;

type
  TfmBaseDialog = class(TfmBaseInfo)
    Image1: TImage;
    lcWindowItem1: TdxLayoutItem;
    ImageList1: TImageList;
    lgLeft: TdxLayoutGroup;
    lcWindowGroup1: TdxLayoutGroup;
    lcWindowGroup4: TdxLayoutGroup;
    lbMessageText: TcxLabel;
    liWindowItem2: TdxLayoutItem;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

procedure ShowError(AText: string);

implementation

procedure ShowError(AText: string);
var
  fmBaseDialog: TfmBaseDialog;
begin
  fmBaseDialog:= TfmBaseDialog.Create(Application);
  try
    fmBaseDialog.lbMessageText.Caption := AText;
    fmBaseDialog.ShowModal;
  finally
    fmBaseDialog.Free;
  end;

end;

{$R *.dfm}

end.
